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00 1 «TITLE SYSSETPRA = SET POWER FAIL AST SYSTEM SERVICE 
0 ¢. -IDENT *v04-000' 
$e ¢  caeuheenbeeeeennsendouqreneenonnneumeneoneNeebeaeneneneeenqnessoseecesenesee 
;* ft 
0 $ :* (COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
0 [* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
8 8 _ ALL RIGHTS RESERVED. - 
0 10 ;* THIS SOF TWARE Is FURNISHED UNDER A LICENSE AND MAY @E USED AND COPIED © 
00 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
99 i 3* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
15 :* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
00 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
9009 15 i* TRANSFERRED. ‘ 
0000 i$ :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 :* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 )? = CORPORATION. 
0000 1 :® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
44 ¢ :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
0000 4 ie . 
0000 5 FURR RRA E REAR EAR AA EAAEEAAAAAAAAAAAEEAERAEAAAEARERE RAE ee 
0000 
W009 $7 i 
464 4 > Facility: 
0000 1 : Abstract: SYSSETPRA IMPLEMENTS THE SSETPRA SYSTEM SERVICE WHICH ENABLES 
0000 é ; ROCESS TO RECEIVE AN AST WHEN POWER IS RESTORED AFTER A 
9000 3: SUCCESSFUL POUER RECOVERY. 
$000 2 : Environment: 
9000 f t Author: RICHARD I. HUSTVEDT, Creation date: 18-JUN-1978 
900 9 : Modified by: 
00 40 ; 
000 41; Version , 
000 4g : of - 
00 43 i-- 
$80 45; 
000 rg : Include files: 
80 48° SACBDEF : DEFINE ACB OFFSETS 
900 49 SPCBDEF + DEFINE PCB OFFSETS 
308 20 SSSDEF > DEFINE SYSTEM SERVICE STATUS CODES 
0 : 
: i: ; MACROS: 
a $f 


Equated Symbols: 
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vous ve ‘ “ : gr SE b=19 4 §g:36:92 EOYs SRCISYSSETPRA.MAR: 1 ’ d 
4 3g ASTADR = 4 3; ARGUMENT LIST OFFSET TO AST ADDRESS 
8 ei ACMODE = 8 ; ARGUMENT LIST OFFSET TO ACCESS MODE 
88 ; 
ee ; Own Storage: 
000000 3 66 -PSECT YSEXEPAGED ; PAGED CODE 
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3; Functional Pesertecions 

EXESSETPRA IMPLEMENTS THE SYSTEM SERVICE SSETPRA WHICH ENABLES A 
PROCESS TO REQUEST AN AST AFTER THE RESTORATION OF POWER FOLLOWING 
A POWER FAILURE. THE AST ROUTINE IS ENTERED WITH A PARAMETE 
GIVING THE DURATION OF THE POWER OUTAGE IN .01 SECOND UNITS. 
THIS IS A SINGLE SHOT AST AND MUST BE RE-ENABLED EACH TIME IT OCCURS. 
IT IS AUTOMATICALLY CANCELED AT IMAGE RUNDOWN. 

cantrng poguence: 
ALL ARGLIST,EXESSETPRA 

Input Parameters: 
ASTADR(AP) = ADDRESS OF AST ROUTINE 
ACMODE(AP) = ACCESS MODE, MAXIMIZED WITH THAT OF CALLER 


Implicit Inputs: 
PCB OF CURRENT PROCESS LOCATED VIA SCHSGL_CURPCB 


Output Parameters: 
RO - COMPLETION STATUS CODE 


Implicit Outputs: 
3 NONE “ 


; Side Effects: 
NONE 


Pete Se Ge Ge Ge Ge Ge Ge Ge Be Be Bs Be Se Ge Se Se Se Ge Se Se Se Se Se Se Se Ge Se Ge Se 


Status Codes: 
SSS_NORMAL = NORMAL, SUCCESSFUL COMPLETION 
SS$"EXQUOTA = AST QUOTA EXCEEDED 
-LIST MEB ; Show macro expansions 
ENTRY EXESSETPRA, “M<R2,R3,R4,R5> . 
EXTZV #0,#2,ACMODE (AP) ,RO 3 GET ACCESS MODE ARGUMENT 
BSBW EXE SMAXACMODE ; MAXIMIZE WITH THAT OF CALLER 
MOVAB CTLSGL_POWERAST,R1 ; GET ADDRESS OF POWER FAIL AST POINTER 
TSTL (R1) ; IS THERE ONE CURRENTLY? 
BNEQ 10$ ; YES, SKIP QUOTA BUSINESS 
TSTW PCBSW_ASTCNT(R4) 3 CHECK FOR AST QUOTA 
BLEQ XQUOTA ; ERROR EXIT IF NO QUOTA 
DECW PCBSW_ASTCNT(R4) 3; ONE LESS FOR AST QUOT 
10$: MOVL ASTADR(AP), (R1) ; SET ADDRESS OF AST ROUTINE 
MOVB RO,<CTL$GB_PWRMODE-CTLSGL poupensts\ote 3; AND ACCESS MODE FOR AST 
BBSS aptesy PWRAST PCBSL_STS(R&),20$ ; SET POWER AS’ FLAG FOR PROCESS 
20$: st ass _NORMAL ,RO : RETUPN NORMAL SUCCESSFUL COMPLETION 
EXQUOTA: 3; EXCEEDED AST QUOTA 
MOVZWL #SS$_EXQUOTA,RO 3; SET STATUS CODE FOR QUOTA EXCEEDED 
RET 3; AND RETURN 


(SS 
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SYSSETPRA - SET POWER FAIL AST S$ 
vou=600 EXESPOUERAST ° IN TIAT L AST F 5=SEP=1 SYS SRCJSYSSETPRA. MAR; 1 (1) 


-SBTTL EXESPOWERAST = INITIATE POWER FAIL AST FOR ALt INTERESTED PROCESSES 


+ 
Functional Descript 
EXESPOWFRAS te" CAL ED BY THE SWAPPER AFTER A POWER RECOVERY TO 


124 
105 ; 
188 
4 108: SEND A SPECIA KERNEL MODE AST TO EACH PROCESS WHICH HAS ENABLED 
4 ; POWER FAIL ASTS. 
1 Calling sequence: 
‘ 3 438 EXESPOWERAST 
4 13% ee 
135 EXESPOWERAST:: ; 
70 8F BB 1 : PUSHR #*M<R4,RS,R6> + SAVE NON-VOLATILE REGISTERS 
S6 noone EF D : Slaten MOVL § SCHSGL_MAXPIX,R6 SET STARTING PROCESS INDEX FOR SCAN 
54 "FF4G D9 Ea § MOVL aSCHSGL PCBVECCR6],R4 T A PCB ADDRESS 
4AM 16 € 47 140 BBC #PCBSV_PWRA RAST, PCBSL_ s schaf® -NEXTPCE BRANCH IF NO AST FOR THIS PROC 
"EF 18 4 141 JSB EXESAL COCIRP ; ALLOCA TE AN 1/0 PACKET 
“28 5 148 BLBC RO,NEXTPCB SK fle OR 
00 24 as 16 €5 0055 14 BBCC aPCBSV _PWRAST,PCBSL _sts¢he) 108 LEAR A 
52. DO 005A 1464 108: MOVL aR onace Lt 
08 A 39 a Sp 145 MOVB #<<1BACBSY QuoTA> <1aaceéy KASTD> "ACRE R ) ore AS SPECIAL AS 
or A 6 146 MOVL PCBSL_PID(R4),ACBSL_P SET PID FOR A 
Hi : 67 14 MOVAB B*PROTAST, ACBSL BAST CRS). SET nobress FO SPECIAL "ast 
14 AS D $¢ 148 MOVL EXESGL APPATIN. ACSSL -ASTPRM(RS) SET AST PARAMET TER 
D4 4 149 CLRL ; PRIORITY INCREMENT 
00000000' 52 16 z6 130 vi JSB SCHSOAST t ENQUEUE AST FOR PROCESS 
CO 56 «FS «(007 133 SOBGEQ R6,PCBLOOP ; CONTINUE FOR ALL PIX VALUES 
“EF D4 OO7F 15 CLRL. «EXE SGL_PFATIM : CLEAR DURATION OF POWERFAIL 
70 8F BA 85 154 POPR #*M<RG7RS,R6> ; RESTORE REGISTER $ 
§ 89 3 RSB F 


AND RETU 
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SYSSETPRA - SET POWER FAIL AST SYSTEM S avit 16-SEP-1984 :49 VAX/VMS Ma Pa 
$o2 2500 PROCAST = RPE TAL ERNEL AST oN POWERFA g- $f =}382 88: $5 3 Hee aH eee vonacg MAR; 1 ” a) 
A 15 ~SBTTL PROCAST - SPECIAL KERNEL AST FOR POWERFAIL 
a°% 5 Functional { Descripts 
A 161; RUNS AS A SPECIAL KERNEL AST I CONTEXT PROCESS 
A 168 ; ene It ACCESS THE ADDRESS OF then POUER FAIL As? AOU INE AND 
2 ! ; REGU U THE MAS AT THE PROPER ACCESS MO 
A Maa 
<9 $ BROCAST: : 
51 009 "EF A 16 MOVAB CTLSGL POWERAST,R1 ; GET ADDRESS OF POWER FAIL AST POINTER 
10 a5. 61 p l 1 8 VL (R1), ACBSL_AST(RS) : SET CORRECT AST ROUTINE ADDR 
0B AS "C1 9 1g BISB  <CTL$GB_PWRMODE-CTLSGL -POWERAST>(R ) ,ACBS$B_RMOD(RS) ; 
9% 1 p : SET CORRECT ACCESS MODE 
61 D4 0098 17 CLRL = (R11) : ZAP AST POINTER 
2 04 009D 1% CLRL = RR : SET NULL PRIORITY INCREMENT 
00000000'EF 17 oF 173 JMp SCHSQAST + QUEUE NORMAL AST 
bag 175 .END 3 
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EXGUSTA 

NEXT 

PCBSL Pip 
PCBSL_STS 

PCBS -AST ONT 6 

PCBLOOP 0 03 

PROCAST 000 

SCHSGL_MAXP1X erenrene 

SCHSGL_PCBVEC eeeeeeee x 

SCHSQAST 

SS$_EXQUOTA 

SS$_NORMAL 
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= 0000001¢ 
= 00000001 


PSECT name 


. ABS . 00000000 ( C3 +) NOPIC USR CON ABS LCL 
SABSS 44444 2 ( 3 NOPIC USR CON ABS LCL NOSHR’ EXE 
YSEXEPAGED Q00000A5 ( 16 NOPIC USR CON REL LCL NOSHR’ EXE 


were ee ee ee ee ee ee eee ee ee et 


Initialization Amok 2 9 :00: 
se processing 1 700: 
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s 1 . ° 
Syabol table sort : : - ; 
Symbol table output : ; 


Psect synopsis output 
Cross-reference output 
Assembler run totals 42 


The working set Limit was 1200 pages. 


o v04-00 
SETPRA 


AMAR; 1 pen &h) 


NOSHR NOEXE noe NOWRT NOVEC BYTE 


WRT NOVEC BYTE 
RD WRT NOVEC BYTE 


es 
ee 
‘in 


sys seyrn 
VAK-11 Recro Run Statistics 


8491 bytes_(56 pages) of virtual memory were used te buffer 5 e intermediate code. 
" re were pages of s L table space cee etee hold 577 non-loca "ing local symbols. 
source Lines were read in Pass 1, producing object records in Pass 2. 
0 pages of virtual memory were used to define 9 macros. 
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gee ee weer ee ee eee owen cee een} 


' Macro Library statistics ! 


Peewee eeeeeeeeoeeeeeseeeeees} 


Macro Library name Macros defined 
TOrAce Call ti braries) 6 


631 GETS were required to define 6 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SYSSETPRA/OBJ=OBJ$:SYSSETPRA MSRC$:SYSSETPRA/UPDATE=(ENHS: SYSSETPRA) +EXECML$/LIB 
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